home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / rwrd < prev    next >
Text File  |  1995-03-31  |  896b  |  23 lines
  1. %%HP: T(3)A(R)F(.);
  2. @ RWRD - Matrix Row Reduction ( matrix - reduced matrix )
  3. @ Robert T. Wilson - University of Iowa
  4. \<< DUP OBJ\-> OBJ\-> DROP \-> r c \<< r r 1 \-> m n s \<< 
  5.    1 r START c \->ARRY DEPTH ROLLD NEXT 1 r START DEPTH ROLL NEXT
  6.    1 r START 0 's' STO
  7.     1 c FOR z IF DUP z GET 0 \=/ THEN z 's' STO c 'z' STO END NEXT
  8.     IF s 0 > THEN DUP s GET IF 1 \=/ THEN DUP s GET / END
  9.      1 r 1 - START
  10.       r ROLL IF DUP s GET 0 \=/ THEN DUP2 s GET * - 1 'n' STO END SWAP
  11.      NEXT
  12.     END
  13.     r ROLLD
  14.    NEXT
  15.    r 'n' STO
  16.    1 c FOR z 1 r FOR y
  17.      IF DUP z GET 1 == THEN
  18.       n ROLLD 'n' DECR IF 1 == THEN r 'y' STO c 'z' STO END ELSE n ROLLD END
  19.    NEXT NEXT
  20.   1 r START DEPTH ROLLD NEXT 1 r START DEPTH ROLL OBJ\-> DROP NEXT
  21.   r c 2 \->LIST \->ARRY
  22. \>> \>> \>>
  23.